home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Cream of the Crop 20
/
Cream of the Crop 20 (Terry Blount) (1996).iso
/
os2
/
bind493a.zip
/
bin
/
copyright
next >
Wrap
Text File
|
1993-07-06
|
5KB
|
148 lines
#!/usr/bin/perl
# copyright - replace copyright in specified files
# vix 17apr93 [fixed truncation bug; only edit writable files]
# vix 31mar93 [added individual dating per file]
# vix 02feb93 [original, for bind 4.9]
## ++Copyright++
## -
## Copyright (c)
## The Regents of the University of California. All rights reserved.
##
## Redistribution and use in source and binary forms, with or without
## modification, are permitted provided that the following conditions
## are met:
## 1. Redistributions of source code must retain the above copyright
## notice, this list of conditions and the following disclaimer.
## 2. Redistributions in binary form must reproduce the above copyright
## notice, this list of conditions and the following disclaimer in the
## documentation and/or other materials provided with the distribution.
## 3. All advertising materials mentioning features or use of this software
## must display the following acknowledgement:
## This product includes software developed by the University of
## California, Berkeley and its contributors.
## 4. Neither the name of the University nor the names of its contributors
## may be used to endorse or promote products derived from this software
## without specific prior written permission.
##
## THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND
## ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
## IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
## ARE DISCLAIMED. IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
## FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
## DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
## OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
## HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
## LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
## OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
## SUCH DAMAGE.
## -
## Portions Copyright (c) 1993 by Digital Equipment Corporation.
##
## Permission to use, copy, modify, and distribute this software for any
## purpose with or without fee is hereby granted, provided that the above
## copyright notice and this permission notice appear in all copies, and that
## the name of Digital Equipment Corporation not be used in advertising or
## publicity pertaining to distribution of the document or software without
## specific, written prior permission.
##
## THE SOFTWARE IS PROVIDED "AS IS" AND DIGITAL EQUIPMENT CORP. DISCLAIMS ALL
## WARRANTIES WITH REGARD TO THIS SOFTWARE, INCLUDING ALL IMPLIED WARRANTIES
## OF MERCHANTABILITY AND FITNESS. IN NO EVENT SHALL DIGITAL EQUIPMENT
## CORPORATION BE LIABLE FOR ANY SPECIAL, DIRECT, INDIRECT, OR CONSEQUENTIAL
## DAMAGES OR ANY DAMAGES WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR
## PROFITS, WHETHER IN AN ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS
## ACTION, ARISING OUT OF OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS
## SOFTWARE.
## -
## --Copyright--
$BeginMarker = '\+\+Copyright\+\+';
$EndMarker = '\-\-Copyright\-\-';
@Copyright = <STDIN>;
print STDERR "copyright from standard input is $#Copyright lines\n";
foreach (@ARGV) {
©right($_);
}
exit 0;
sub copyright {
local($file) = @_;
local($_, $found, $indent, $in, @file);
if (! -w $file) {
print STDERR "$file: not writable\n";
return;
}
if (!open(file, "+<$file")) {
print STDERR "$file: $!\n";
return;
}
$found = 0;
$in = 0;
while (<file>) {
if (/$BeginMarker/o) {
if ($in) {
print STDERR
"$file: nested '$BeginMarker'\n";
return;
}
$indent = $`;
$dates = $';
$dates =~ s/^\s+//;
$dates =~ s/\s+$//;
$found++;
$in = 1;
push(@file, $_);
foreach (@Copyright) {
if (/XYZZY/o) {
push(@file, $indent.$`.$dates.$');
} else {
push(@file, $indent.$_);
}
}
} elsif (/$EndMarker/o) {
if (!$in) {
print STDERR
"$file: mismatched '$EndMarker'\n";
return;
}
if ($` ne $indent) {
print STDERR
"$file: indent differs: '$`' vs '$indent'\n";
return;
}
push(@file, $_);
$in = 0;
} else {
push(@file, $_) unless $in;
}
}
if ($in) {
print STDERR
"$file: mismatched '$BeginMarker'\n";
return;
}
if (!$found) {
print STDERR
"$file: no '$BeginMarker' or '$EndMarker' found\n";
return;
}
print STDERR "$file: $found copyrights found\n";
if (!seek(file, 0, 0)) {
print STDERR
"$file: seek(f,0,0): $!";
return;
}
print file @file;
truncate(file, tell(file));
if (!close(file)) {
print STDERR
"$file: close(f): $! (may be corrupt now)\n";
return;
}
}